home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
COMAL
/
B-Book Series
/
(k)b4.d64
/
example12.3
< prev
next >
Wrap
Text File
|
2007-02-28
|
487b
|
16 lines
0010 DIM NUM(100), DESCR$(100) OF 12, WORD$ OF 12
0020 FILLARRAYS
0030 OPEN FILE 2,"INFILE",RANDOM 19
0040 FOR R:=1 TO 100 DO WRITE FILE 2,R,1: NUM(R),DESCR$(R)
0050 FOR R:=1 TO 100 DO READ FILE 2,R,1: NUM(R),DESCR$(R)
0060 CLOSE
0070 FOR R:=1 TO 100 DO PRINT NUM(R)," ",DESCR$(R);" "
0080 PROC FILLARRAYS
0090 FOR K:=1 TO 100 DO
0100 NUM(K):=RND(1,9999)
0110 WORD$:=""
0120 FOR CH:=1 TO 12 DO WORD$:=WORD$+CHR$(RND(193,218))
0130 DESCR$(K):=WORD$
0140 ENDFOR K
0150 ENDPROC FILLARRAYS